perm filename BUILT.FIX[1,JRA] blob sn#055941 filedate 1973-08-01 generic text, type T, neo UTF8

(DEFPROP BUILTCH 
 (LAMBDA(X)
  (PROG (Z)
	(SETQ PFLG T)
	(SETQ ANCESTRY NIL)
	(SETQ Z (BUILTCH1 X))
	(RETURN
	 (COND ((OR (ATOM Z) (EQUAL Z (QUOTE (AND))) (EQUAL X (QUOTE (OR)))) NIL)
	       (T (LIST (QUOTE LAMBDA) (QUOTE (C1 C2)) Z)))))) 
EXPR)